home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / wildcat / lockout!.zip / LOCKOUT.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-09-14  |  2KB  |  132 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  1716 bytes  11/15/122  01:49:30am
  3. '! Code Segment Size  :1178 bytes
  4. '! Data Segment Size  :4521 bytes
  5. '! String Segment Size:538 bytes
  6. '! Compiled with WCC version 4.20
  7.  
  8.       Dim i4465 As Integer
  9.       Dim s4467 As String
  10.       Dim s4471 As String
  11.       Dim s4475 As String
  12.       Dim s4479 As String
  13.       Dim s4483 As String
  14.       Dim s4487 As String
  15.       Dim s4491 As String
  16.       Dim i4495 As Integer
  17.       Dim s4497 As String
  18.       Dim s4501 As String
  19.       Dim s4505 As String
  20.       Dim s4509 As String
  21.       Dim s4513 As String
  22.       Dim s4517 As String
  23.  
  24.       s4487 = "f"
  25.       s4479 = "false"
  26.       i4465 = FreeFile
  27.       Open ProgPath + "LOCKOUT.CFG" For Input As i4465
  28.       Input #i4465, s4467
  29.       Input #i4465, s4471
  30.       Input #i4465, s4475
  31.       Input #i4465, s4483
  32.       Close i4465
  33.       If Exists(ProgPath + "LOCKOUT.DAT") Then
  34.         i4495 = FreeFile
  35.         Open ProgPath + "LOCKOUT.DAT" For Input As i4495
  36.   197   Do While Not EOF(i4495)
  37.           Input #i4495, s4497
  38.           If UCase(Trim(s4497)) = UCase(Trim(User.SecLevel)) Then
  39.             s4487 = "t"
  40.           End If
  41.   266   Loop
  42.   272   Close i4495
  43.         i4495 = FreeFile
  44.         Open ProgPath + "LOCKOUT.DAT" For Input As i4495
  45.   316   Do While Not EOF(i4495)
  46.           Input #i4495, s4501
  47.           If UCase(Trim(s4501)) = UCase(Trim(User.Name)) Then
  48.             s4487 = "t"
  49.           End If
  50.   385   Loop
  51.   391   Close i4495
  52.       End If
  53.   399 If UCase(Trim(s4467)) <> UCase(Trim(MakeWild.SysopName)) Then
  54.         Cls 
  55.         Print DefColor
  56.         Print "LOCKOUT.CFG line 1 incorrect."
  57.         Print "Enter the SysOp name EXACTLY as it appears in Makewild."
  58.         Beep 
  59.         Delay 0.25
  60.         Beep 
  61.         Delay 0.25
  62.         Beep 
  63.         Delay 3
  64.         End 
  65.       Else
  66.   501   If UCase(Trim(s4471)) <> UCase(Trim(MakeWild.BBSName)) Then
  67.           Cls 
  68.           Print DefColor
  69.           Print "LOCKOUT.CFG line 2 incorrect."
  70.           Print "Enter the BBS name EXACTLY as it appears in Makewild."
  71.           Beep 
  72.           Delay 0.25
  73.           Beep 
  74.           Delay 0.25
  75.           Beep 
  76.           Delay 3
  77.           End 
  78.         End If
  79.       End If
  80.   597 s4505 = Str(Asc(LCase(Right(Left(s4467, 2), 1))))
  81.       s4509 = Str(Asc(LCase(Left(Right(s4467, 2), 1))))
  82.       s4513 = Str(Asc(LCase(Right(Left(s4471, 2), 1))))
  83.       s4517 = Str(Asc(LCase(Left(Right(s4471, 2), 1))))
  84.       s4491 = Str(Val(s4513 + s4505) + Val(s4517 + s4509))
  85.       If s4491 = s4475 Then
  86.         s4479 = "true"
  87.       End If
  88.   765 If s4479 = "false" Then
  89.         Cls 
  90.         Locate 14, 10
  91.         Color 12, 0
  92.         Beep 
  93.         Print "This is an *UNREGISTERED* trial version of LOCKOUT."
  94.         Locate 15, 10
  95.         Color 12, 0
  96.         Print "REGISTRATION removes this nag screen and 10 second delay."
  97.         Locate 16, 10
  98.         Color 12, 0
  99.         Print "Please ask " + Trim(s4467) + " to register this software."
  100.         Beep 
  101.         Delay 10
  102.       End If
  103.   881 If s4487 = "t" Then
  104.         Cls 
  105.         Locate 14, 10
  106.         Color 13, 0
  107.         Beep 
  108.         Print Trim(s4467) + " has denied you access to this feature."
  109.         Delay 1
  110.         Locate 15, 10
  111.         Print "Please contact " + Trim(s4467) + " for further information."
  112.         Delay 2
  113.       Else
  114.   989   If Exists(ProgPath + Trim(s4483)) Then
  115.           Chain ProgPath + Trim(s4483), ""
  116.         Else
  117.  1036     GoTo 1042
  118.         End If
  119.  1042   Cls 
  120.         Locate 14, 10
  121.         Color 12, 0
  122.         Beep 
  123.         Delay 0.25
  124.         Beep 
  125.         Delay 0.25
  126.         Beep 
  127.         Print "Cannot find " + Trim(s4483) + ".wcx in this directory."
  128.         Delay 2
  129.         GoTo 1122
  130.       End If
  131.  1122
  132.